home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / StoreDem (.txt) < prev    next >
Wingz Spreadsheet  |  1989-06-08  |  3KB  |  91 lines
  1. WNGZWZSS01b1
  2. Geneva
  3. Geneva
  4. StoreDem
  5. loaded
  6. demorunning
  7. mastercontrol
  8. StoreDem
  9. :Startup5
  10. Sheet
  11. Sheet9
  12. Fonts
  13. sdfolder
  14. WindowIn
  15. toolstate
  16. loaded
  17. first
  18. folder
  19. fontsloaded
  20. movedin
  21. define loaded, first, folder, snl, tfl, fontsloaded, t, ff, movedin
  22. on activate
  23. unselect
  24. if loaded <> 1
  25.     unselect
  26.     tool sheet
  27.     snl = length(name())
  28.     tfl = length("StoreDem")
  29.     if (snl > tfl) and not loaded
  30. {        message "Into StoreDem external sheet init." }
  31.         folder = left(name(),snl-tfl-1)
  32.         run script folder & ":Startup" { "Startup" script loads "SD" Script }
  33. {        message "Running """ & folder & ":Startup""." }
  34.         sd:sdfolder = folder
  35.         first = 1
  36.         loaded = 1
  37.         go to window "Sheet"
  38.         if name() = "Sheet"
  39.             close now
  40.         end if
  41.     elseif snl = tfl and loaded <> 1
  42.         call SD:WindowIn()
  43.         movedin = 1
  44.         loaded = 1
  45.     end if
  46.     if first = 1
  47.         fontsloaded = 0
  48.         if movedin <> 1
  49.             call SD:WindowIn()
  50.         end if
  51.         if fontsloaded
  52.             { insert code to rebuild Font menu to show new fonts }
  53.         end if
  54.         first = 0
  55.     end if
  56. end if
  57. end activate
  58. on idle
  59.     if sd:toolstate = 1
  60.         tool sheet
  61.     end if
  62.     if sd:exit = 1
  63.         remove external "Fonts"
  64.         remove external "WorldClass
  65.  ""Stylish"" Sampler"
  66.         remove external "WorldClass
  67.  ""Originals"" Sampler"
  68.     end if
  69. end idle
  70. Chicago
  71. Times
  72. This is the Wingz Automatic Demonstration Program
  73. To run simply click the "Start Wingz Demo" button.  Adjust the controls you see in the dialog box to suit your needs.  The demo will take  over from here.
  74. To stop the demonstration at any point, press the "
  75. " and the "." keys together.  To restart the demo, go to the "Demo" menu and select the "Restart Demo" menu item.
  76. Times
  77. Times
  78. Times
  79. Times
  80. Quit Wingz Demo
  81. Quit Wingz Demo
  82. exittf:exit = 1
  83. quit now
  84. Chicago
  85. Times
  86. Start Wingz Dem
  87. Start Wingz Demo
  88. StoreDemocall sd:StoreDemo()
  89. Chicago
  90. Times
  91.